1 Public Class frmCngPass
2
3     Private Sub frmCngPass_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4         TextBox4.Text = My.Settings.pass
5         TextBox1.UseSystemPasswordChar = True
6         TextBox2.UseSystemPasswordChar = True
7         TextBox3.UseSystemPasswordChar = True
8     End Sub
9
10     Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
11         If CheckBox1.CheckState = CheckState.Checked Then
12             TextBox2.UseSystemPasswordChar = False
13         Else
14             TextBox2.UseSystemPasswordChar = True
15         End If
16     End Sub
17
18     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
19         If Not TextBox1.Text = TextBox4.Text Then
20             MsgBox(
"Old Passwor is incorrect")
21         ElseIf TextBox2.Text = TextBox3.Text Then
22
23             My.Settings.Save()
24             MsgBox(
"Password Change Succefully")
25             Me.Close()
26         Else
27             MsgBox(
"New password doesn't match")
28         End If
29
30         
31     End Sub
32
33     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
34         Me.Close()
35     End Sub
36 End Class


Gõ tìm kiếm nhanh...